home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
fortran
/
fv121s.zip
/
FAT1.DOC
< prev
next >
Wrap
Text File
|
1988-06-09
|
28KB
|
949 lines
APR 1988 FAT-VIDEO 1.21 SETVM Page V-1
SETVM(MODE)-Set the Video Mode
Usage:
call setvm(mode)
integer*2 mode
inputs: mode
returns: none
MS-Fortran 4.0 Large Model
Description:
This program sets the video mode. The available modes are
defined below.
See also getmod().
mode Display
---- --------
00 = 40*25 text B&W,cga
01 = 40*25 color text,cga
02 = 80*25 B&W text
03 = 80*25 color text
04 = 320*200 4-color,cga
05 = " " " ,color burst off
06 = 640*200 2-color,cga
07 = Mono & EGA display
08 = 160*200 pc jr
09 = 320*200 pc jr
0A = 640*200 pc jr
0D = 320*200 EGA
0E = 640*200 16-color EGA
0F = 640*350 mono graphics,EGA
10 = 640*350 4/16 color graphics,EGA
(4/16-depends on ram)
Int 10h, fx-00h
CGA, Mono, EGA
APR 1988 FAT-VIDEO 1.21 SETCP Page V-2
SETCP(ROW,COL,PAGE) - Set Cursor Position
Usage:
call setcp(row,col,page)
integer*2 row,col,page
inputs: page,row,col
returns: none
MS-Fortran 4.0 Large Model
This subroutine sets the cursor position to
the values given in row, column and page. The row
values are 0-23, the column values are 0-39 or 0-79
depending on the text mode in use.
The cursor may be located in graphics modes using
this function the same as in text modes. See the
setdp() function regarding pages.
See also getcp().
Int 10h, fx-02h
CGA, Mono, EGA
APR 1988 FAT-VIDEO 1.21 GETCP Page V-3
GETCP(ROW,COL,PAGE) - Get Cursor Position
Usage:
call getcp(row,col,page)
integer*2 row,col,page
inputs: page
returns: row,col
MS-Fortran 4.0 Large Model
This subroutine gets the cursor position for
the specified page, and returns row, and column.
The row values are 0-23, the column values are
0-39 or 0-79 depending on the text mode in use.
See the setdp() function regarding pages in the
various adapters.
See also setcp().
Int 10h, fx-03h
CGA, Mono, EGA
APR 1988 FAT-VIDEO 1.21 SETDP Page V-4
SETDP(PAGE) - SET the Display Page
Usage:
call setdp(page)
integer*2 page
inputs: page
returns: none
MS-Fortran 4.0 Large Model
Description:
This subroutine sets the active display page.
The Mono Adapter only has 1 display page. The CGA
adapter has 8 display pages in modes 0 and 1, and
4 text display pages in modes 2 and 3. See the chart
below for other modes.
See also getmod().
Page Modes(hex)
----- ----------
0-7 00-01 CGA
0-3 02-03 CGA
0-7 02-03 EGA
0-7 0D EGA
0-3 0E EGA
0-1 0F EGA
0-1 10h EGA
Int 10h, fx-05h
CGA, EGA
APR 1988 FAT-VIDEO 1.21 SCWUP Page V-5
SCWUP(LINES,ATTR,ULR,ULC,LRR,LRC) - Scroll Window Up
Usage:
call scwup(lines,attr,ulr,ulc,lrr,lrc)
integer*2 lines,attr,ulr,ulc,lrr,lrc
inputs: lines,attr,ulr,ulc,lr,lrc
returns: none
MS-Fortran 4.0 Large Model
Description:
This subroutine scrolls up the rectangular area defined
by ulr,ulc and lrr,lrc the specified number of lines,
filling the blank lines with the background color defined in
the attribute byte.
The attribute byte may be set by setab(), or from a
call to getac().
See also scwdn(), cls(), getmod(), setvm().
lines = 0-25 no. of lines to scroll(0 -> clears window)
attr = attribute byte to use, for background color
ulr = 0-24 upper left y-coord(row) corner of scroll region
ulc = 0-79 " x " " (col) "
lrr = 0-24 lower right y-coord(row)
lrc = 0-79 " " x-coord(col)
Int 10h, fx-06h
CGA, Mono, EGA
APR 1988 FAT-VIDEO 1.21 SCWDN Page V-6
SCWDN(LINES,ATTR,ULR,ULC,LRR,LRC) - Scroll Window Down
Usage:
call scwdn(lines,attr,ulr,ulc,lrr,lrc)
integer*2 lines,attr,ulr,ulc,lrr,lrc
inputs: lines,attr,ulr,ulc,lrr,lrc
returns: none
MS-Fortran 4.0 Large Model
Description:
This subroutine scrolls down the rectangular area defined
by ulr,ulc and lrr,lrc the specified number of lines,
filling the blank lines with the background color defined in
the attribute byte.
The attribute byte may be set by setab(), or returned from a
call to getac().
See also scwup(), cls(), getmod(), setvm().
lines = 0-25 no. of lines to scroll(0 -> clears window)
attr = attribute byte to use, for background color
ulr = 0-24 upper left y-coord(row) corner of scroll region
ulc = 0-79 " x " " (col) "
lrr = 0-24 lower right y-coord(row)
lrc = 0-79 " " x-coord(col)
Int 10h, fx-07h
CGA, Mono, EGA
APR 1988 FAT-VIDEO 1.21 GETAC Page V-7
GETAC(ATTR,KAR,PAGE) - Get the Attribute and Character at the
cursor.
Usage:
call getac(attr,kar,page)
integer*2 attr,kar,page
inputs: page
returns: attr,kar
MS-Fortran 4.0 Large Model
Description:
This subroutine gets the attribute and ascii character code,
or extended character code, at the current cursor position. The
display page is not needed in graphics modes. In graphics modes
if the character is not recognized, a 0 is returned.
This function will return the ascii or extended code in either
text or graphics modes.
See also getab(), wrtac(), wrtacp(), wrtas(), wrtasp().
wprint(), wprnas(), setab()
attr = attribute byte, as output by setab()
kar = character ascii code
Page = legal Page for adapter in use
Int 10h, fx-08h
CGA, Mono, EGA
APR 1988 FAT-VIDEO 1.21 WRTAC Page V-8
WRTAC(ATTR,KAR,PAGE) - Write Attribute and Character at the cursor.
Usage:
call wrtac(attr,kar,page)
integer*2 attr,kar,page
inputs: attr,kar,page
returns: none
MS-Fortran 4.0 Large Model
Description:
This subroutine writes the attribute and character at the
current cursor position. The attribute is the output of getac,
or of setab. This function works in text and graphics modes.
The cursor does not advance automatically. The attribute
controls the color of the foreground, background, intensity,
and blinking.
The special codes backspace, carriage return, linefeed
and bell are not recognized and do cause characters to be
printed.
Text Mode:
The attribute byte can be defined by setab, and both fore
and back should be specified. The values for the foreground
color may be 0-15, background 0-7, blink 0 or 1, and inten